home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh26a.d64 / klang dynamisch (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  748b  |  34 lines
  1. 100 REM--------------------------------
  2. 110 REM KLANGEFFEKTE MIT
  3. 120 REM DYNAMISCHER FREQUENZSTEUERUNG
  4. 130 REM--------------------------------
  5. 140 S=54272
  6. 150 READ A,D,SU,R,C,P,F,G,N,M
  7. 160 POKE S+5 ,16*A +D
  8. 170 POKE S+6 ,16*SU+R
  9. 180 POKE S+2 ,P AND 255
  10. 190 POKE S+3 ,P/256
  11. 200 POKE S+23,0     :REM FR
  12. 210 POKE S+24,15    :REM ML
  13. 220 GET A$:IF A$="" THEN 220
  14. 230 FOR I=1 TO M
  15. 240 : F1=F
  16. 250 : POKE S+4,C OR 1
  17. 260 : FOR J=1 TO N
  18. 270 :   POKE S,F1 AND 255
  19. 280 :   POKE S+1,F1/256
  20. 290 :   F1=F1*G
  21. 300 : NEXT J
  22. 310 : POKE S+4,C
  23. 320 NEXT I
  24. 330 GOTO 220
  25. 400 REM--------------------------------
  26. 410 REM PARAMETER
  27. 420 DATA 0 ,10, 0,10:REM A D SU R
  28. 430 DATA 16         :REM CONTROL-BYTE C
  29. 440 DATA 2048       :REM PULSWEITE P
  30. 450 DATA 16000      :REM FREQUENZ F
  31. 460 DATA 1.33       :REM FAKTOR G
  32. 470 DATA 2          :REM ANZAHL N
  33. 480 DATA 25         :REM ANZAHL M
  34.